home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / boosters.arc / FILLHEAP.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1985-11-03  |  501 b   |  14 lines
  1. { ------------------------
  2.   FILLHEAP fills heap page
  3.   character/attribute
  4.   block
  5.   ------------------------ }
  6. Procedure FillHeap ( Page : HeapBuf;
  7.                        X1 : RowType;
  8.                        Y1 : ColumnType;
  9.                        X2 : RowType;
  10.                        Y2 : ColumnType;
  11.                         C : Char;
  12.                       Att : Byte); external 'FillHeap.com';
  13.           { Fill Page from (X1,Y1) to (X2,Y2)
  14.             with C character and Att byte }